inherited fCad_Procedimentos: TfCad_Procedimentos
  Left = 55
  Top = 40
  Caption = 'fCad_Procedimentos'
  ClientWidth = 707
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 16
    Top = 50
    Width = 33
    Height = 13
    Caption = 'Codigo'
  end
  object Label2: TLabel [1]
    Left = 216
    Top = 50
    Width = 65
    Height = 13
    Caption = 'Procedimento'
  end
  inherited StsBr: TStatusBar
    Width = 707
  end
  inherited Panel2: TPanel
    Width = 707
    TabOrder = 3
    inherited btnProcurar: TBitBtn [0]
      Left = 155
      Visible = False
    end
    inherited btnSair: TBitBtn [1]
      Left = 466
    end
    inherited btnCancelar: TBitBtn [2]
      Left = 362
    end
    inherited btnexcluir: TBitBtn [3]
      Left = 362
    end
    inherited btngravar: TBitBtn [4]
      Left = 257
    end
    inherited btnIncluir: TBitBtn [5]
      Left = 257
    end
  end
  inherited Panel3: TPanel
    Width = 707
    TabOrder = 4
  end
  object DBEdit1: TDBEdit [5]
    Left = 16
    Top = 66
    Width = 177
    Height = 21
    DataField = 'COD_PROCEDIMENTO'
    DataSource = DtSrc
    TabOrder = 0
    OnKeyPress = FormKeyPress
  end
  object DBEdit2: TDBEdit [6]
    Left = 216
    Top = 66
    Width = 473
    Height = 21
    DataField = 'DESC_PROCEDIMENTO'
    DataSource = DtSrc
    TabOrder = 1
    OnKeyPress = FormKeyPress
  end
  object DBGrid1: TDBGrid [7]
    Left = 16
    Top = 157
    Width = 673
    Height = 277
    TabStop = False
    DataSource = DtSrc
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'COD_PROCEDIMENTO'
        Title.Caption = 'C'#243'digo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESC_PROCEDIMENTO'
        Title.Caption = 'Procedimento'
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox [8]
    Left = 16
    Top = 93
    Width = 673
    Height = 65
    Caption = 'LOCALIZAR'
    TabOrder = 6
    object Label3: TLabel
      Left = 8
      Top = 17
      Width = 33
      Height = 13
      Caption = 'Codigo'
    end
    object Label4: TLabel
      Left = 202
      Top = 17
      Width = 65
      Height = 13
      Caption = 'Procedimento'
    end
    object EvDBFind1: TEvDBFind
      Left = 8
      Top = 32
      Width = 168
      Height = 21
      TabStop = False
      DataField = 'COD_PROCEDIMENTO'
      DataSource = DtSrc
      Indent = 0
      TabOrder = 0
    end
    object EvDBFind2: TEvDBFind
      Left = 200
      Top = 32
      Width = 465
      Height = 21
      TabStop = False
      DataField = 'DESC_PROCEDIMENTO'
      DataSource = DtSrc
      Indent = 0
      TabOrder = 1
    end
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_procedimento
  end
end
